perm filename T.F4[HHA,LCS] blob sn#404794 filedate 1978-12-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	3	TYPE 1
C00003 ENDMK
CāŠ—;
3	TYPE 1
1	FORMAT(' TYPE    '$)
2	FORMAT(4F)
	ACCEPT 2,P3
C THIS ASSUMES THAT LOWEST NOTE IS NO MORE THAN
C FOUR OCTAVES BELOW 0  (I.E. -28)
	I=P3+28
	J=I/7
	Y=J-4
	STPNUM=MOD(I,7)
	FREQ=2**Y
	TYPE 2,FREQ,STPNUM
	GO TO 3
	END